home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnttlkt2.lha / Routines / LNOISE < prev    next >
Text File  |  1994-12-13  |  993b  |  11 lines
  1. LNOISE: procedure;arg p,d;a=time('s');getuser 1100661;c=result;if bittst(d2c(c+(c<0)*256),7)=0 then exit
  2.     if p='###PANIC' then exit;getuser 2225094;hp=result;if p>hp|p<0|datatype(p,'n')=0 then exit
  3.     a.0='s1ouçå797╛Æs0å7ÆåÖi7';a.1='ë╛';a.2='½╛Æå½╛ÆyëöÆå½╛ö«½╛7r';a.3='«6╛╜ñ80y9ohj; ;'
  4.     a.4=':OJlòè;;°╖';a.5=' í╛╜╝⌐w1╡■≡65Öà«≡7';a.6='54«⌐       åä7    08o  7piï¡Å╖í'
  5.     a.7='╛╡ñêP*oíñ■╖₧7ue64s╝ó│₧öàG';a.8='DXc  . LJ. è;o8';a.9='n í╛╜#⌐≡ÖöóÆe';a.10='╛₧╝43à5i6yYth98hñɽëyê)*Ou9i76y'
  6.     a.11='í╛╜f½╛s1╝««½╛5╗╖y9i-╗½òs0098Å■╖₧r╖₧½╛åë½╛ëö½╛í';a.12='utg97ëòöç97öòïn1Åë╛■ëò'
  7.     a.13='T½í╛■«åèÖhgb╕û║mn¬¡║ vh,v¡bv╟n';a.14=' cáéVâÿéÜxgedy';a.15='trdíñïåw1êí╡≡╡■≡τ        dd'
  8.     a.16='╜■╡≡òn1■╡≡òöä';a.17='ñ■í╡≡iyëÖå≡';a.18='uy';address ('CNETREXX'p)
  9.     do for random(4,18);l=random(0,18);sendstring a.l;end;if d=1 then dropcarrier
  10.     do for random(4,18);l=random(0,18);sendstring a.l;end;bufferflush;return
  11.